home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / ETEST11.TRP < prev    next >
Text File  |  1995-03-18  |  594b  |  25 lines
  1. procedure main
  2. var
  3.         a1 : array[1 .. 9] of boolean;
  4.         i : byte;
  5.         t : byte;
  6. endVar
  7.         for i := 1 to 9 
  8.                 t := i % 2;
  9.                 if (t = 1)
  10.                         a1[i] := false
  11.                 else
  12.                         a1[i] := true
  13.                 endif
  14.         endFor
  15.         i := 9
  16.         while (i > 0)
  17.                 if (a1[i]) 
  18.                         writeln(i, ' ', 'true')
  19.                 else
  20.                         writeln(i, ' ', 'false')
  21.                 endif
  22.                 dec(i);
  23.         endWhile
  24. endProc
  25.